open Exercies
open OUnit2

let make_product_test arg answer descrip =
    descrip >:: (fun _ -> assert_equal answer (product arg))

let test_concat = "test concat" >::: [
    make_product_test [1; 2; 3; 4] 24 "normal";
    make_product_test [-1; -2; -3; 4] (-24) "negtive";
    make_product_test [1] 1 "only 1 number";
]
